home *** CD-ROM | disk | FTP | other *** search
Wrap
Text File | 1989-03-04 | 4.2 KB | 79 lines | [ TEXT/OMEG]
(*^ ::[paletteColors = 128; fontset = title, "New York", 18, L2, center, bold, nohscroll; fontset = subtitle, "New York", 14, L2, center, bold, nohscroll; fontset = subsubtitle, "New York", 12, L2, center, bold, nohscroll; fontset = section, "New York", 14, L2, bold, nohscroll, grayBox; fontset = subsection, "New York", 12, L2, bold, nohscroll, blackBox; fontset = subsubsection, "New York", 10, L2, bold, nohscroll, whiteBox; fontset = text, "New York", 10, L2, nohscroll; fontset = smalltext, "New York", 10, L2, nohscroll; fontset = input, "Courier", 12, L2, bold, nowordwrap; fontset = output, "Courier", 12, L2, nowordwrap; fontset = message, "Courier", 12, L2, R65535, nowordwrap; fontset = print, "Courier", 12, L2, nowordwrap; fontset = info, "Courier", 12, L2, nowordwrap; fontset = postscript, "Courier", 12, L2, nowordwrap; fontset = name, "Geneva", 10, L2, italic, B65535, nohscroll; fontset = header, "New York", 10, L2, nohscroll; fontset = footer, "New York", 12, L2, center, nohscroll; fontset = help, "Geneva", 10, L2, nohscroll; fontset = clipboard, "New York", 12, L2; fontset = completions, "New York", 12, L2; fontset = network, "Courier", 10, L2, nowordwrap; fontset = graphlabel, "Courier", 12, L2; fontset = special1, "New York", 12, L2; fontset = special2, "New York", 12, L2, center; fontset = special3, "New York", 12, L2, right; fontset = special4, "New York", 12, L2; fontset = special5, "New York", 12, L2;] :[inactive; startGroup; font = title; ] Animated 3D Sine Wave (for Color monitors) ;[s] 2:0,2;42,0;43,-1; 3:1,23,17,New York,1,18,0,0,0;0,23,17,New York,1,18,65535,0,65535;1,23,17,New York,1,18,65535,0,0; :[inactive; font = smalltext; ] This Notebook contains an animated "movie". To show the movie, • Scroll until the first graphics cell is completely visible in the window. (The movie is shown in this cell, so if it isn't visible, you won't see the movie.) • Select the movie by clicking the bracket that encloses its sequence of frames. (This is the bracket whose bottom is angled.) • Type Y to start the movie. A click anywhere will stop the animation. ;[s] 4:0,0;378,1;380,0;443,0;444,-1; 3:3,14,10,New York,0,10,0,0,0;1,15,12,Chicago,0,12,0,0,0;0,12,10,New York,1,10,0,0,0; :[inactive; font = smalltext; ] See the file Read This First! for a more detailed explanation of how to run a movie, and how to control its speed and direction. (The animation in this Notebook looks best when run forward.) ;[s] 3:0,0;13,2;29,0;193,-1; 3:2,14,10,New York,0,10,0,0,0;0,15,12,Chicago,0,12,0,0,0;1,12,10,New York,1,10,0,0,0; :[font = input; ] <<Colors.m :[startGroup; font = input; ] Do[Plot3D[{Sin[x+n] Cos[y+n], HSBColor[(1 + Sin[x-n] Cos[y-n])/2, 1, 1]}, {x, -Pi, Pi}, {y, -Pi, Pi}], {n, 0, Pi-Pi/10, Pi/10}]; :[inactive; PICT; pictureID = 14178; output; startGroup; Cclosed; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 20779; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 22994; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 32755; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 14171; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 28418; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 17892; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 11030; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 18395; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] :[inactive; PICT; pictureID = 31733; output; endGroup; endGroup; endGroup; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ] ^*)